10 REM ******************************
20 REM  BEREICH IN FOXDISK SCHREIBEN
30 REM ******************************
40 SYS 49152:REM FOXDISK AKTIVIEREN
50 INPUT "[147][211]TARTADRESSE ";SA
60 IF SA<0 OR SA>65535 GOTO 50
70 INPUT "[197]NDADRESSE+1 ";EA
80 IF EA<=SA OR EA>65535 GOTO 60
90 IF EA-SA<=32764 GOTO 130
100 PRINT "[218]U GROSSER [194]EREICH!"
110 POKE 198,0:WAIT 198,1:GET A$
120 GOTO 50
130 PRINT "[194]ITTE WARTEN..."
140 SYS 57812"",7:REM SAVEN IN FOXDISK VORBEREITEN
150 POKE 250,(SA-32768)AND255:POKE 251,SA/256:POKE 780,250
160 POKE 781,(EA-32768)AND255:POKE 782,EA/256:SYS 65496:REM BEREICH SAVEN
170 PRINT "[198]ERTIG!"